home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00001_movie script.ls next >
Encoding:
Text File  |  1997-02-10  |  2.9 KB  |  87 lines
  1. on startMovie
  2.   set the floatPrecision to 1
  3.   put " " into field "Kostenlos!"
  4.   repeat with m = 14 to 25
  5.     set the puppet of sprite m to 1
  6.   end repeat
  7.   repeat with t = 18 to 30
  8.     set the foreColor of member t to 255
  9.   end repeat
  10. end
  11.  
  12. on ├╝bertrag1
  13.   put EMPTY into field "produkt1"
  14.   set x to the number of chars in field "stk1"
  15.   set y to 5 - x
  16.   repeat with i = 1 to y
  17.     put " " after field "produkt1"
  18.   end repeat
  19.   put field "stk1" after field "produkt1"
  20.   put "  " after field "produkt1"
  21.   put "Faxmodem Speedster 14.400" after field "produkt1"
  22.   repeat while the number of chars in field "produkt1" < 35
  23.     put " " after field "produkt1"
  24.   end repeat
  25.   put "(8110)    " after field "produkt1"
  26.   put "   69,00 DM" after field "produkt1"
  27.   if the number of chars in field "gesmtprx1" = 7 then
  28.     put "       " & field "gesmtprx1" after field "produkt1"
  29.   end if
  30.   if the number of chars in field "gesmtprx1" = 8 then
  31.     put "      " & field "gesmtprx1" after field "produkt1"
  32.   end if
  33.   if the number of chars in field "gesmtprx1" = 9 then
  34.     put "     " & field "gesmtprx1" after field "produkt1"
  35.   end if
  36.   set the textSize of member "produkt1" to 10
  37.   put field "produkt1" & RETURN after field "bestelltext"
  38. end
  39.  
  40. on Versandgeb
  41.   global summe
  42.   set x to summe
  43.   set x to x + 9.60000000000000142
  44.   put x into field "versandlagera"
  45.   repeat with a = 1 to the number of chars in field "versandlagera"
  46.     if char a of field "versandlagerA" = "." then
  47.       put "," after field "versandlagerB"
  48.       next repeat
  49.     end if
  50.     put char a of field "versandlagerA" after field "versandlagerB"
  51.   end repeat
  52.   put field "versandlagerB" & "0 DM" into field "versandsumme"
  53.   delete field "VersandlagerB"
  54.   put field "Versand" & RETURN after field "Bestelltext"
  55.   put RETURN & field "Gesamtsumme" after field "Bestelltext"
  56.   if the number of chars in field "Versandsumme" = 7 then
  57.     put "       " & field "Versandsumme" after field "Bestelltext"
  58.   end if
  59.   if the number of chars in field "Versandsumme" = 8 then
  60.     put "      " & field "Versandsumme" after field "Bestelltext"
  61.   end if
  62.   if the number of chars in field "Versandsumme" = 9 then
  63.     put "     " & field "Versandsumme" after field "Bestelltext"
  64.   end if
  65.   if the number of chars in field "Versandsumme" = 10 then
  66.     put "    " & field "Versandsumme" after field "Bestelltext"
  67.   end if
  68.   put RETURN after field "Bestelltext"
  69. end
  70.  
  71. on Versandfrei
  72.   put RETURN & field "Gesamtsumme" after field "Bestelltext"
  73.   if the number of chars in field "summe" = 7 then
  74.     put "       " & field "summe" after field "Bestelltext"
  75.   end if
  76.   if the number of chars in field "summe" = 8 then
  77.     put "      " & field "summe" after field "Bestelltext"
  78.   end if
  79.   if the number of chars in field "summe" = 9 then
  80.     put "     " & field "summe" after field "Bestelltext"
  81.   end if
  82.   if the number of chars in field "summe" = 10 then
  83.     put "    " & field "summe" after field "Bestelltext"
  84.   end if
  85.   put RETURN after field "Bestelltext"
  86. end
  87.